home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / yacas_alg / yacas_morphos / share / yacas / assoc.rep / code.ys < prev   
Encoding:
Text File  |  2002-03-13  |  486 b   |  19 lines
  1.  
  2. /* Assoc : given an assoc list like for example l:={{a,2},{b,3}},
  3.    Assoc(b,l) will return {b,3}. if the key is not in the list,
  4.    it will return the atom Empty.
  5. */
  6.  
  7. Function("Assoc",{key,list})  FastAssoc(key,list);
  8. /*TODO remove
  9. RuleBase("Assoc",{key,list});
  10. Rule("Assoc",2,1,list = {}) Empty;
  11. Rule("Assoc",2,2,list[1][1] = key) list[1];
  12. Rule("Assoc",2,3,True) Assoc(key,Tail(list));
  13. */
  14.  
  15. AssocIndices(associndiceslist):=
  16.   DestructiveReverse(MapSingle("Head",associndiceslist));
  17.  
  18.  
  19.